VERSION 5.00
Object = "{736A8444-E374-41A8-B526-1B07FD2F3F5B}#1.0#0"; "BLacKPeaRLOCX.ocx"
Begin VB.Form FrmDatabases 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Lokasi Databases"
   ClientHeight    =   5520
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6120
   ForeColor       =   &H0000C000&
   Icon            =   "FrmDatabases.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5520
   ScaleWidth      =   6120
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame1 
      Height          =   5535
      Left            =   0
      TabIndex        =   10
      Top             =   0
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   9763
      BackColor1      =   0
      BackColor2      =   4210752
      Caption         =   "Set Databases"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TitleColor1     =   0
      TitleColor2     =   4210752
      TitleGradient   =   2
      TitleHeight     =   350
      BorderColor     =   49152
      RoundAngle      =   0
      BorderWidth     =   2
      Begin VB.TextBox txtpass 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   1470
         TabIndex        =   5
         Top             =   3165
         Width           =   1455
      End
      Begin VB.TextBox txtuser 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   1470
         TabIndex        =   4
         Top             =   2685
         Width           =   1575
      End
      Begin VB.TextBox txtnameda 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   1470
         TabIndex        =   3
         Top             =   2205
         Width           =   1215
      End
      Begin VB.TextBox txtport 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   1470
         TabIndex        =   2
         Top             =   1725
         Width           =   615
      End
      Begin VB.TextBox txtlokda 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   1470
         TabIndex        =   1
         Top             =   1245
         Width           =   1815
      End
      Begin VB.ComboBox txtdatabases 
         BackColor       =   &H00404040&
         ForeColor       =   &H0000C000&
         Height          =   315
         Left            =   1440
         TabIndex        =   0
         Text            =   "{MySQL ODBC 5.1 driver}"
         Top             =   840
         Width           =   2655
      End
      Begin BLacKPeaRLOCX.ButtonNix CmdBatal 
         Height          =   375
         Left            =   2880
         TabIndex        =   7
         Top             =   3720
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         BTYPE           =   5
         TX              =   "Tutup"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   49152
         FCOLO           =   49152
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmDatabases.frx":15BB9
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin BLacKPeaRLOCX.ButtonNix CmdSimpan 
         Height          =   375
         Left            =   1440
         TabIndex        =   6
         Top             =   3720
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         BTYPE           =   5
         TX              =   "Simpan"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   49152
         FCOLO           =   49152
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmDatabases.frx":15BD5
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame2 
         Height          =   1335
         Left            =   0
         TabIndex        =   21
         Top             =   4200
         Width           =   6135
         _ExtentX        =   10821
         _ExtentY        =   2355
         BackColor1      =   0
         BackColor2      =   4210752
         Caption         =   "Start MySQL"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   49152
         TitleColor1     =   0
         TitleColor2     =   4210752
         TitleGradient   =   2
         TitleHeight     =   350
         BorderColor     =   49152
         RoundAngle      =   0
         BorderWidth     =   2
         Begin BLacKPeaRLOCX.ButtonNix Cmdtambah 
            Height          =   375
            Left            =   2280
            TabIndex        =   8
            Top             =   720
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   661
            BTYPE           =   5
            TX              =   "Start MySQL"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmDatabases.frx":15BF1
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.Label Label11 
            BackStyle       =   0  'Transparent
            Caption         =   "Click Start MySQL to Running service....."
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   1320
            TabIndex        =   22
            Top             =   480
            Width           =   3615
         End
      End
      Begin VB.CheckBox chkpass 
         BackColor       =   &H00000000&
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   3600
         TabIndex        =   9
         Top             =   4320
         Value           =   1  'Checked
         Width           =   255
      End
      Begin VB.Shape Shape7 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1440
         Shape           =   4  'Rounded Rectangle
         Top             =   3120
         Width           =   1530
      End
      Begin VB.Shape Shape6 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1440
         Shape           =   4  'Rounded Rectangle
         Top             =   2640
         Width           =   1650
      End
      Begin VB.Shape Shape5 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1440
         Shape           =   4  'Rounded Rectangle
         Top             =   2160
         Width           =   1290
      End
      Begin VB.Shape Shape4 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1440
         Shape           =   4  'Rounded Rectangle
         Top             =   1680
         Width           =   690
      End
      Begin VB.Shape Shape3 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1440
         Shape           =   4  'Rounded Rectangle
         Top             =   1200
         Width           =   1890
      End
      Begin VB.Label Label14 
         BackStyle       =   0  'Transparent
         Caption         =   "Pakai Password"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   3840
         TabIndex        =   25
         Top             =   4320
         Width           =   1815
      End
      Begin VB.Label Label13 
         BackStyle       =   0  'Transparent
         Caption         =   "Databases Versi"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   120
         TabIndex        =   24
         Top             =   840
         Width           =   1335
      End
      Begin VB.Label Label12 
         BackStyle       =   0  'Transparent
         Caption         =   "Pakai Password"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   1440
         TabIndex        =   23
         Top             =   3120
         Width           =   1815
      End
      Begin VB.Label Label10 
         BackStyle       =   0  'Transparent
         Caption         =   "*Default : black"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   495
         Left            =   3000
         TabIndex        =   20
         Top             =   3120
         Width           =   2655
      End
      Begin VB.Label Label9 
         BackStyle       =   0  'Transparent
         Caption         =   "*Default : root"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   3120
         TabIndex        =   19
         Top             =   2640
         Width           =   1815
      End
      Begin VB.Label Label8 
         BackStyle       =   0  'Transparent
         Caption         =   "*Default :black"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   2760
         TabIndex        =   18
         Top             =   2160
         Width           =   1815
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "*Default :3306"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   2160
         TabIndex        =   17
         Top             =   1680
         Width           =   1815
      End
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "*Default : localhost atau 127.0.0.1"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   375
         Left            =   3480
         TabIndex        =   16
         Top             =   1200
         Width           =   1815
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "Lokasi Databases"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   1200
         Width           =   1335
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "Username"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   2640
         Width           =   1335
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "Password"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   120
         TabIndex        =   13
         Top             =   3120
         Width           =   1335
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "Database Name"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   120
         TabIndex        =   12
         Top             =   2160
         Width           =   1335
      End
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "Port"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   1680
         Width           =   1335
      End
   End
End
Attribute VB_Name = "FrmDatabases"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim passwd As String
Private Sub chkpass_Click()
txtpass.Text = ""
End Sub

Private Sub CmdBatal_Click()
MsgBox "Program akan restart untuk menyimpan data-data.", vbInformation, "Restart"
End
End Sub

Private Sub CmdSimpan_Click()

If txtlokda.Text = "<blank>" Or txtuser.Text = "<blank>" Or txtnameda.Text = "<blank>" Or txtport.Text = "<blank>" Then
MsgBox "Isi semua data yang di perlukan kecuali password. atau program tidak bisa di jalankan secara normal.", vbCritical, "Warning"
Else
Dim dbs As New ClSINI
dbs.fileName = App.path & "\confDb.ini"
dbs.ApplicationKey = "ConfDB"
dbs.SetValue "Version Database", txtdatabases.Text
dbs.SetValue "Databases URL", txtlokda.Text
dbs.SetValue "Databases Port", txtport.Text
dbs.SetValue "Databases Name", txtnameda.Text
dbs.SetValue "Username", txtuser.Text
If txtpass.Text = "" Then
Else
passwd = EncryptText(txtpass.Text, "thisispasswordforblackpearldatabasesmysql")
Open App.path & "\StoredPass" For Output As #1
    Print #1, passwd
Close #1
End If

MsgBox "Seting telah berhasil disimpan, jalankan program kembali setelah restart.", vbInformation, "Seting Databases"
End
End If

End Sub
Private Sub AmbilKey()
Dim dbs As New ClSINI
Dim pass As String
Dim linestr As String
Open App.path & "\StoredPass" For Input As #1
Line Input #1, linestr
Close #1
dbs.fileName = App.path & "\confDb.ini"
dbs.ApplicationKey = "ConfDB"
txtdatabases.Text = dbs.GetValue("Version Database", "")
txtlokda.Text = dbs.GetValue("Databases URL", "")
txtport.Text = dbs.GetValue("Databases Port", "")
txtnameda.Text = dbs.GetValue("Databases Name", "")
txtuser.Text = dbs.GetValue("Username", "")
txtpass.Text = DecryptText(linestr, "thisispasswordforblackpearldatabasesmysql")

End Sub


Private Sub Form_Load()
On Error Resume Next
StyleS
txtdatabases.AddItem "{MySQL ODBC 3.51 driver}"
txtdatabases.AddItem "{MySQL ODBC 5.1 driver}"

AmbilKey
End Sub


Private Sub Cmdtambah_Click()
On Error GoTo hell
Shell "C:\BLacKPeaRLMySQL\bin\startMySQL.bat"
IfNoErr:
Exit Sub
hell:
If Err.Number = 76 Then
MsgBox "startMySQL.bat  tidak ditemukan!!!", vbInformation, "Missing File"
ElseIf Err.Number = 364 Then
MsgBox "Jalankan program kembali.", vbInformation, "Error"
End
Else
MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
TulisError Err.Description, Err.Number, "CmdTambah_Click", Me.Name
Resume IfNoErr
End If
End Sub
Private Sub StyleS()
On Error Resume Next
Dim ctrl As Control
For Each ctrl In Controls
If FrmStyles.txtnamastyle.Text = "Default" Then
Exit Sub
Else
    If (TypeOf ctrl Is ButtonNix) And _
        ctrl.Name <> "cmdSwitchStyle" Then
        ctrl.ButtonType = FrmStyles.txtlButtonType.Text
        ctrl.ColorScheme = FrmStyles.txtlColorScheme.Text
        ctrl.Backcolor = FrmStyles.txtlBackcolor.Text
        ctrl.BackOver = FrmStyles.txtlBackOver.Text
        ctrl.Forecolor = FrmStyles.txtlForecolor.Text
        ctrl.ForeOver = FrmStyles.txtlForeOver.Text
       
    End If
        If (TypeOf ctrl Is BLacKFrame) And _
        ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.BackColor1 = FrmStyles.frameBackColor1.Text
         ctrl.BackColor2 = FrmStyles.frameBackColor2.Text
         ctrl.BorderColor = FrmStyles.frameBorderColor.Text
         ctrl.Forecolor = FrmStyles.frameForecolor.Text
         ctrl.TitleColor1 = FrmStyles.frameTitleColor1.Text
         ctrl.TitleColor2 = FrmStyles.frameTitleColor2.Text
         If FrmStyles.frameBackGradient.Text = 0 Then
         ctrl.BackGradient = None
         ElseIf FrmStyles.frameBackGradient.Text = 1 Then
         ctrl.BackGradient = Vertical
         ElseIf FrmStyles.frameBackGradient.Text = 2 Then
         ctrl.BackGradient = Horizontal
         End If
         
         If FrmStyles.Frametitlegradient.Text = 0 Then
         ctrl.TitleGradient = None
         ElseIf FrmStyles.Frametitlegradient.Text = 1 Then
         ctrl.TitleGradient = Vertical
         ElseIf FrmStyles.Frametitlegradient.Text = 2 Then
         ctrl.TitleGradient = Horizontal
         End If

    End If
        If (TypeOf ctrl Is BLacKText) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.TForecolor.Text
         ctrl.Backcolor = FrmStyles.TBackcolor.Text
         ctrl.BackColorMain = FrmStyles.TBackColorMain.Text
         ctrl.BorderColor = FrmStyles.TBorderColor.Text
         ctrl.FocusBackColor = FrmStyles.TFocusBackColor.Text
         ctrl.FocusBackMainColor = FrmStyles.TFocusBackMainColor.Text
         ctrl.FocusBorderColor = FrmStyles.TFocusBorderColor.Text
         ctrl.FocusForeColor = FrmStyles.TFocusForeColor.Text
    End If
        If (TypeOf ctrl Is MSFlexGrid) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.GDBackcolor.Text
         ctrl.BackColorBkg = FrmStyles.GDBackColorBkg.Text
         ctrl.BackColorSel = FrmStyles.GDBackColorSel.Text
         ctrl.BackColorFixed = FrmStyles.GDBackColorFixed.Text
         ctrl.ForeColorSel = FrmStyles.GDForeColorSel.Text
         ctrl.Forecolor = FrmStyles.GDForecolor.Text
         ctrl.ForeColorFixed = FrmStyles.GDForeColorFixed.Text
         ctrl.GridColor = FrmStyles.GDGridColor.Text
         ctrl.GridColorFixed = FrmStyles.GDGridColorFixed.Text
    End If
        If (TypeOf ctrl Is TextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lbltextfore.Text
         ctrl.Backcolor = FrmStyles.lbltextback.Text
    End If
        If (TypeOf ctrl Is ComboBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.cboForeColor.Text
         ctrl.Backcolor = FrmStyles.cboBackcolor.Text
    End If
        If (TypeOf ctrl Is Label) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lblForeColor.Text
    End If
        If (TypeOf ctrl Is RichTextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.RcBackcolor.Text
    End If
    
            If (TypeOf ctrl Is OptionButton) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.opForecolor.Text
         ctrl.Backcolor = FrmStyles.opBackcolor.Text
    End If
            If (TypeOf ctrl Is ListView) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.LBackColor.Text
    End If
    Me.Backcolor = FrmStyles.WFore.Text
    End If
Next ctrl
End Sub




Private Sub txtdatabases_GotFocus()
txtdatabases.Backcolor = &H0&
txtdatabases.Forecolor = vbWhite
End Sub

Private Sub txtdatabases_LostFocus()
txtdatabases.Backcolor = &H404040
txtdatabases.Forecolor = &HC000&
End Sub
Private Sub txtlokda_GotFocus()
txtlokda.Backcolor = &H0&
txtlokda.Forecolor = vbWhite
End Sub

Private Sub txtlokda_LostFocus()
txtlokda.Backcolor = &H404040
txtlokda.Forecolor = &HC000&
End Sub
Private Sub txtport_GotFocus()
txtport.Backcolor = &H0&
txtport.Forecolor = vbWhite
End Sub

Private Sub txtport_LostFocus()
txtport.Backcolor = &H404040
txtport.Forecolor = &HC000&
End Sub

Private Sub txtnameda_GotFocus()
txtnameda.Backcolor = &H0&
txtnameda.Forecolor = vbWhite
End Sub

Private Sub txtnameda_LostFocus()
txtnameda.Backcolor = &H404040
txtnameda.Forecolor = &HC000&
End Sub

Private Sub txtuser_GotFocus()
txtuser.Backcolor = &H0&
txtuser.Forecolor = vbWhite
End Sub

Private Sub txtuser_LostFocus()
txtuser.Backcolor = &H404040
txtuser.Forecolor = &HC000&
End Sub

Private Sub txtpass_GotFocus()
txtpass.Backcolor = &H0&
txtpass.Forecolor = vbWhite
End Sub

Private Sub txtpass_LostFocus()
txtpass.Backcolor = &H404040
txtpass.Forecolor = &HC000&
End Sub
